﻿Imports System.Text
Public Class frmLogin
    Public Shared usuarioLogado As New usuarioVO
    Private usuarioBO As New usuarioBO
    Private ucPerito As New ucPerito

    Public Sub New()
        InitializeComponent()
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.WindowState = FormWindowState.Normal
        ucPerito.PERMITEDIGITACAO = False
    End Sub
    Private Sub cmbLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLogin.Click

        Try

            If ucPerito.getPeritoSelecionado < 0 And txtSenha.Text.Equals(String.Empty) Then
                MsgBox("Favor enviar login e senha")
            Else
                usuarioLogado = usuarioBO.getLogin(ucPerito.getPeritoSelecionado, txtSenha.Text)
                If IsNothing(usuarioLogado) Then

                    MsgBox("Usuário ou senha inválidos", Microsoft.VisualBasic.MsgBoxStyle.Exclamation, "Sistema GeraLaudos")
                    txtSenha.Text = String.Empty
                    ucPerito.Focus()

                Else

                    Dim form As New frmPrincipal()
                    Login.Usuario.USUARIOLOGADO = usuarioLogado
                    'If usuarioLogado.NOME.ToUpper.IndexOf("GISELE") >= 0 Then
                    '    MsgBox("Sua pontuação está muito baixa mãe. Começa a trabalhar direito, pois o geralaudos tá de zóio aberto", MsgBoxStyle.Critical)
                    'End If

                    form.Show()
                    form.Focus()
                    Me.Visible = False
                End If
            End If
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            ucPerito.ehSelecionarTodos = False
            pnlPerito.Controls.Add(ucPerito)
            ucPerito.cmbPerito.SelectedIndex = 0
            cmbLogin.Focus()
            ' ucPerito.cmbPerito.Focus()
            lblVersao.Text = "Versão:" & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
End Class
